home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 37
/
Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso
/
Aminet
/
dev
/
basic
/
Mildred.lha
/
lha
/
LandMap.lha
/
LandMap2.ascii
< prev
next >
Wrap
Text File
|
1999-05-24
|
959b
|
44 lines
WBStartup
MBitmap 0,2240,60
InitBank 0,2880*60,$10000 ; must clear!
CludgeBitMap 0,2240,60,8,Bank(0)
InitPalette 0,256
LoadBitMap 0,"Land44.iff",0 ; try 3, 12, 14, 15, 19, 20, 21, 22, 23, 29, 31, 34, 36, 37, 38, 39
MPlanar16ToBitmap 0,Bank(0),2240,60,2240,60
MBitmap 1,2880,60
width.q=2240
widthadd.q=(2240-320)/47
For yy=46 To 0 Step -1
adder.q=2240/width
MZoom 0,yy,adder,1,320+1120-(width/2),yy,width,1,False,0
MScroll 321+(1120-(width/2)),yy,320,1,320+(1120+(width/2)),yy
MScroll 320+(1120+(width/2))-320,yy,320,1,320+(1120-(width/2))-319,yy
width-widthadd
Next yy
MScroll 0,47,2240,13,320,47,0
MScroll 320,47,320,13,320+2240,47
MScroll 2240,47,320,13,0,47
InitPalette 1,256
Dim map.b(256)
For c=0 To 63
map(c)=c
Next c
For c=64 To 127
map(c)=64+64+c
CopyColour 0,1,c,64+64+c
Next c
For c=128 To 255
map(c)=c
Next c
MReMap &map(0),1
Mc2pWindow 0,2880,60
Mc2p Bank(0)
CludgeBitMap 0,2880,60,8,Bank(0)
SaveBitmap 0,"Land17.iff",1
End